home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 65.zip / BS1 part 65 / Art Department Pro 2.15 d2.adf / RXProgs.lzh / ZapDPI.adpro < prev   
Text File  |  1992-03-10  |  421b  |  26 lines
  1. /*  
  2.     This program calls ZapDPI and forcibly changes DPI chunks to dpi.
  3. */
  4.  
  5. OPTIONS RESULTS
  6.  
  7. ADDRESS "ADPro"
  8.  
  9. NL = '0A'X
  10.  
  11. GETFILES '"Select IFF files to Zap:"'
  12. IF RC ~= 0 THEN DO
  13.    /* No selection */
  14.    EXIT
  15. END
  16.  
  17. LIST = ADPRO_RESULT
  18. COUNT = WORDS(ADPRO_RESULT)
  19. I = 1
  20.  
  21. DO WHILE (I <= COUNT)
  22.     ADDRESS COMMAND "ZAPDPI -dpi" WORD(LIST,I)
  23.     IF RC = 20  THEN OKAY1 "Error while changing:" || NL || (WORD(LIST,I)
  24.     I = I + 1
  25. END
  26.